COMMENT ⊗   VALID 00004 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	TITLE GEOMEL
C00004 00003	STORE LINKS.
C00006 00004	FLOATING FULL WORD DATUMS.
C00008 ENDMK
C⊗;
TITLE GEOMEL
	EXTERN MAKNUM

;ALTERNATE PDP-10 MNEMONICS.
	DEFINE O(A,B){OPDEF A[B]}
	O DIP,HRLM↔O DAP,HRRM
	O CAR,HLRZ↔O CDR,HRRZ
	O LAC,MOVE↔O DAC,MOVEM↔O GO,JRST

DEFINE NUMVAL(AC){
	TRNE AC,1B18↔GO .+4
	CDR AC,(AC)↔CDR AC,(AC)↔SKIPA AC,(AC)
	SUBI AC,577777}

;FETCH LINKS.

NFACE↑:	NUMVAL(1)↔CAR 1,1(1)↔GO MAKNUM+1
PFACE↑:	NUMVAL(1)↔CDR 1,1(1)↔GO MAKNUM+1
  NED↑:	NUMVAL(1)↔CAR 1,2(1)↔GO MAKNUM+1
  PED↑:	NUMVAL(1)↔CDR 1,2(1)↔GO MAKNUM+1
  NVT↑:	NUMVAL(1)↔CAR 1,3(1)↔GO MAKNUM+1
  PVT↑:	NUMVAL(1)↔CDR 1,3(1)↔GO MAKNUM+1

  DAD↑:	NUMVAL(1)↔CAR 1,4(1)↔GO MAKNUM+1
  SON↑:	NUMVAL(1)↔CDR 1,4(1)↔GO MAKNUM+1
  BRO↑:	NUMVAL(1)↔CAR 1,5(1)↔GO MAKNUM+1
  SIS↑:	NUMVAL(1)↔CDR 1,5(1)↔GO MAKNUM+1

  ALT↑:	NUMVAL(1)↔CAR 1,6(1)↔GO MAKNUM+1
 ALT2↑:	NUMVAL(1)↔CDR 1,6(1)↔GO MAKNUM+1
   CW↑:	NUMVAL(1)↔CAR 1,7(1)↔GO MAKNUM+1
  CCW↑:	NUMVAL(1)↔CDR 1,7(1)↔GO MAKNUM+1
 CAR8↑:	NUMVAL(1)↔CAR 1,8(1)↔GO MAKNUM+1
 CDR8↑:	NUMVAL(1)↔CDR 1,8(1)↔GO MAKNUM+1

;STORE LINKS.
;--------------------------------------------------------------------
NFACE.↑: DAC 1,3↔NUMVAL(3)↔NUMVAL(2)↔DIP 3,1(2)↔POPJ 14,
PFACE.↑: DAC 1,3↔NUMVAL(3)↔NUMVAL(2)↔DAP 3,1(2)↔POPJ 14,
  NED.↑: DAC 1,3↔NUMVAL(3)↔NUMVAL(2)↔DIP 3,2(2)↔POPJ 14,
  PED.↑: DAC 1,3↔NUMVAL(3)↔NUMVAL(2)↔DAP 3,2(2)↔POPJ 14,
  NVT.↑: DAC 1,3↔NUMVAL(3)↔NUMVAL(2)↔DIP 3,3(2)↔POPJ 14,
  PVT.↑: DAC 1,3↔NUMVAL(3)↔NUMVAL(2)↔DAP 3,3(2)↔POPJ 14,
  DAD.↑: DAC 1,3↔NUMVAL(3)↔NUMVAL(2)↔DIP 3,4(2)↔POPJ 14,
  SON.↑: DAC 1,3↔NUMVAL(3)↔NUMVAL(2)↔DAP 3,4(2)↔POPJ 14,
  BRO.↑: DAC 1,3↔NUMVAL(3)↔NUMVAL(2)↔DIP 3,5(2)↔POPJ 14,
  SIS.↑: DAC 1,3↔NUMVAL(3)↔NUMVAL(2)↔DAP 3,5(2)↔POPJ 14,
  ALT.↑: DAC 1,3↔NUMVAL(3)↔NUMVAL(2)↔DIP 3,6(2)↔POPJ 14,
 ALT2.↑: DAC 1,3↔NUMVAL(3)↔NUMVAL(2)↔DAP 3,6(2)↔POPJ 14,
   CW.↑: DAC 1,3↔NUMVAL(3)↔NUMVAL(2)↔DIP 3,7(2)↔POPJ 14,
  CCW.↑: DAC 1,3↔NUMVAL(3)↔NUMVAL(2)↔DAP 3,7(2)↔POPJ 14,
 DIP8↑:  DAC 1,3↔NUMVAL(3)↔NUMVAL(2)↔DIP 3,8(2)↔POPJ 14,
 DAP8↑:  DAC 1,3↔NUMVAL(3)↔NUMVAL(2)↔DAP 3,8(2)↔POPJ 14,

;--------------------------------------------------------------------
;FLOATING FULL WORD DATUMS.

XWC↑:	NUMVAL(1)↔LAC 1,-3(1)↔GO MAKNUM+2
YWC↑:	NUMVAL(1)↔LAC 1,-2(1)↔GO MAKNUM+2
ZWC↑:	NUMVAL(1)↔LAC 1,-1(1)↔GO MAKNUM+2

 IX↑:	NUMVAL(1)↔LAC 1,0(1)↔GO MAKNUM+2
 IY↑:	NUMVAL(1)↔LAC 1,1(1)↔GO MAKNUM+2
 IZ↑:	NUMVAL(1)↔LAC 1,2(1)↔GO MAKNUM+2

 JX↑:	NUMVAL(1)↔LAC 1,3(1)↔GO MAKNUM+2
 JY↑:	NUMVAL(1)↔LAC 1,4(1)↔GO MAKNUM+2
 JZ↑:	NUMVAL(1)↔LAC 1,5(1)↔GO MAKNUM+2

 KX↑:	NUMVAL(1)↔LAC 1,6(1)↔GO MAKNUM+2
 KY↑:	NUMVAL(1)↔LAC 1,7(1)↔GO MAKNUM+2
 KZ↑:	NUMVAL(1)↔LAC 1,8(1)↔GO MAKNUM+2

 AA↑:	NUMVAL(1)↔LAC 1,-3(1)↔GO MAKNUM+2
 BB↑:	NUMVAL(1)↔LAC 1,-2(1)↔GO MAKNUM+2
 CC↑:	NUMVAL(1)↔LAC 1,-1(1)↔GO MAKNUM+2

XPP↑:	NUMVAL(1)↔LAC 1,4(1)↔GO MAKNUM+2
YPP↑:	NUMVAL(1)↔LAC 1,5(1)↔GO MAKNUM+2
ZPP↑:	NUMVAL(1)↔LAC 1,6(1)↔GO MAKNUM+2

XWC.↑:  EXCH 1,2↔DAC 1,3↔NUMVAL(3)↔NUMVAL(2)↔DAC 3,-3(2)↔POPJ 14,
YWC.↑:  EXCH 1,2↔DAC 1,3↔NUMVAL(3)↔NUMVAL(2)↔DAC 3,-2(2)↔POPJ 14,
ZWC.↑:  EXCH 1,2↔DAC 1,3↔NUMVAL(3)↔NUMVAL(2)↔DAC 3,-1(2)↔POPJ 14,

END